home *** CD-ROM | disk | FTP | other *** search
/ Sun Solutions 2000 #2 / Sun Solutions CD (Volume 2 2000)(Special Focus - Java Technologies)(Disc 1).ISO / products / Software / BostonBusinessComputing / bbc / edtcode.edt < prev    next >
Text File  |  2000-02-11  |  432b  |  21 lines
  1. clear main /force
  2. set nostatus
  3. set noruler
  4. set nosummary
  5. set text end ""
  6. c;
  7. i =edtcode
  8. f=_edtcode;clear/f _edtcode; f=_edtcode
  9. set var gold ""
  10. c;extifeq '?<"Enter a key (Control-Z quits): "' 'Control Z' mgoto "!out";set var key "{gold}?&"    !getkey
  11. set var keydef "{~{key}}"
  12. i end;def k {key} as "{keydef}"
  13. set var gold ""
  14. ifeq 'gold' "{keydef}" set var gold "gold "
  15. mgoto "!getkey"
  16. clear/f _edtcode    !out
  17. 
  18. def m edtcode
  19. edtcode
  20. quit
  21.